10 REM ERRORLESEROUTINE FUER ALLE SPUREN
20 REM (C) 1986 BY KLAUS RACZEK
30 :
40 DIM R(22): REM FELD FUER LESEROUTINE
50 OPEN1,8,15,"":REM FEHLERKANAL OEFFNEN UND INITIALISIEREN
60 FORI=0TO22
70 READ R(I): REM MASCHINENPROGRAMM IN
80 NEXT I: REM FELD R() EINLESEN
90 PRINT""
100 INPUT"";SP:R(1)=SP
110 INPUT"";SE:R(5)=SE
115 INPUT"";ID$
116 IFID$<>""THENPRINT#1,""CHR$(18)CHR$(0)CHR$(2)ID$
120 FORI=0TO22
130 PRINT#1,""CHR$(I)CHR$(4)CHR$(1)CHR$(R(I)):REM PROGRAMM IN PUFFER SCHREIBE
140 NEXT I
145 PRINT#1,""CHR$(106)CHR$(0)CHR$(1)CHR$(133): REM BEI ERROR NICHT KLAPPERN
150 PRINT#1,""CHR$(0)CHR$(4):REM PROGRAMM IN PUFFER AUSFUEHREN
160 INPUT#1,A,B$,C,D:PRINT:PRINTA;B$;C;D:REM FEHLERKANAL LESEN UND ZEIGEN
170 FORI=1TO3000:NEXT
180 :
190 DATA 169,18,133,6,169,1,133,7,169,128
200 DATA 162,0,141,77,2,133,0,141,91,2,76,153,213
210 :
220 :
230 PRINT"":FORI=1TO2000:NEXT
240 REM 256 BYTES
250 :
260 FORI=0TO255STEP16:PRINT""
265 PRINT"":FORJ=0TO15
270 PRINT#1,""CHR$(I+J)CHR$(3)
280 GET#1,A$:A=ASC(A$+CHR$(0)):REM EINE BYTE LESEN
290 PRINT""I+J,A,A$"":REM AUSGEBEN: BYTENUMMER, ASC-WERT, ASCII-ZEICHEN
300 NEXT:PRINT"":POKE198,0:WAIT198,1:NEXT
READY.
